home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / msysjour / vol06 / 03 / wintro6 / font.c < prev    next >
C/C++ Source or Header  |  1991-05-01  |  8KB  |  276 lines
  1. #include <stdio.h>
  2. #include <malloc.h>
  3. #include <memory.h>
  4. #include <windows.h>
  5. #include "stock.h"
  6.  
  7. #define ENUMFACES  0 
  8. #define ENUMSIZES  1 
  9.  
  10. #define MAXFONT   64
  11.  
  12. typedef struct tagFontInfo
  13. {
  14.   char szTypeface[64];
  15.   BYTE lfPitchAndFamily;
  16.   BYTE lfCharSet;
  17. } FONTINFO;
  18.  
  19. FONTINFO FontInfo[MAXFONT];
  20.  
  21.  
  22. static int   idxTypeface; 
  23. static BYTE  abFontSizeBitmask[256/8 + sizeof(WORD)];   // room for 256 different sizes
  24.  
  25.  
  26. VOID PASCAL GetTypefaces(HWND hWnd);
  27. VOID PASCAL GetFontSizes(HWND hWnd, int idxFont);
  28. int FAR PASCAL EnumFunc(LPLOGFONT lpLogFont, LPTEXTMETRIC lpTextMetric, 
  29.                 short FontType, LPSTR lpData);
  30. VOID PASCAL ShowSampleFont(HWND hDlg, BOOL bPermanent);
  31. int BitMaskSet(BYTE *map, WORD c, WORD val);
  32. int BitMaskTest(BYTE *map, WORD c);
  33.  
  34.  
  35. BOOL FAR PASCAL FontDlgProc(HWND hDlg, unsigned message, WORD wParam, LONG lParam)
  36. {
  37.   int  i;
  38.   char szBuf[128];
  39.  
  40.   switch (message)
  41.   {
  42.     case WM_INITDIALOG :
  43.       if (!hCurrStockInfo)
  44.       {
  45.         EndDialog(hDlg, FALSE);
  46.         return TRUE;
  47.       }
  48.  
  49.       GetTypefaces(hDlg);
  50.       for (i = 0;  i < idxTypeface;  i++)
  51.       {
  52.         SendDlgItemMessage(hDlg, ID_FACELIST, LB_ADDSTRING, 0,
  53.                            (LONG) (LPSTR) FontInfo[i].szTypeface);
  54.       }
  55.       SendDlgItemMessage(hDlg, ID_FACELIST, LB_SETCURSEL, 0, 0L);
  56.  
  57.       GetFontSizes(hDlg, 0);
  58.       for (i = 1;  i < 256;  i++)
  59.       {
  60.         if (BitMaskTest(abFontSizeBitmask, i))
  61.         {
  62.           sprintf(szBuf, "%d", i);
  63.           SendDlgItemMessage(hDlg, ID_SIZELIST, LB_ADDSTRING, 0,
  64.                                     (LONG) (LPSTR) szBuf);
  65.         }
  66.       }
  67.       SendDlgItemMessage(hDlg, ID_SIZELIST, LB_SETCURSEL, 0, 0L);
  68.       ShowSampleFont(hDlg, FALSE);
  69.       return TRUE;
  70.  
  71.  
  72.     case WM_COMMAND :
  73.       switch (wParam)
  74.       {
  75.         case ID_FACELIST :
  76.           switch (HIWORD(lParam))
  77.           {
  78.             case LBN_SELCHANGE :
  79.               i = (int) SendDlgItemMessage(hDlg,ID_FACELIST,LB_GETCURSEL,0,0L);
  80.               if (i == LB_ERR)
  81.                 break;
  82.               SendDlgItemMessage(hDlg, ID_SIZELIST, LB_RESETCONTENT, 0, 0L);
  83.  
  84.               GetFontSizes(hDlg, i);
  85.               for (i = 1;  i < 256;  i++)
  86.               {
  87.                 if (BitMaskTest(abFontSizeBitmask, i))
  88.                 {
  89.                   sprintf(szBuf, "%d", i);
  90.                   SendDlgItemMessage(hDlg, ID_SIZELIST, LB_ADDSTRING, 0,
  91.                                             (LONG) (LPSTR) szBuf);
  92.                 }
  93.               }
  94.               SendDlgItemMessage(hDlg, ID_SIZELIST, LB_SETCURSEL, 0, 0L);
  95.               ShowSampleFont(hDlg, FALSE);
  96.               break;
  97.  
  98.             case LBN_DBLCLK:
  99.               goto do_it;
  100.           }
  101.           break;
  102.  
  103.         case ID_SIZELIST:
  104.           switch (HIWORD(lParam))
  105.           {
  106.             case LBN_SELCHANGE :
  107.               ShowSampleFont(hDlg, FALSE);
  108.               break;
  109.  
  110.             case LBN_DBLCLK :
  111.               goto do_it;
  112.           }
  113.           break;
  114.  
  115.  
  116.         case IDOK :
  117. do_it:
  118.           ShowSampleFont(hDlg, TRUE);
  119.           EndDialog(hDlg, TRUE);
  120.           break;
  121.  
  122.         case IDCANCEL :
  123.           EndDialog(hDlg, FALSE);
  124.           break;
  125.       }
  126.  
  127.       return TRUE;
  128.  
  129.   }
  130.  
  131.   return FALSE;
  132. }
  133.  
  134.  
  135. VOID PASCAL GetTypefaces(HWND hWnd) 
  136. { 
  137.   FARPROC lpEnumFunc; 
  138.   HDC hDC; 
  139.  
  140.   idxTypeface = 0; 
  141.  
  142.   hDC = GetDC(hWnd); 
  143.   lpEnumFunc = MakeProcInstance(EnumFunc, hThisInstance); 
  144.   EnumFonts(hDC, (LPSTR) NULL, lpEnumFunc, (LPSTR) (LONG) ENUMFACES); 
  145.   FreeProcInstance(lpEnumFunc); 
  146.   ReleaseDC(hWnd, hDC); 
  147. } 
  148.  
  149.  
  150. VOID PASCAL GetFontSizes(HWND hWnd, int idxFont) 
  151. { 
  152.   HDC hDC; 
  153.   FARPROC lpEnumFunc; 
  154.  
  155.   memset((char *) abFontSizeBitmask, 0, sizeof(abFontSizeBitmask));
  156.   * (WORD *) abFontSizeBitmask = 256;
  157.  
  158.   hDC = GetDC(hWnd); 
  159.   lpEnumFunc = MakeProcInstance(EnumFunc, hThisInstance); 
  160.   EnumFonts(hDC, FontInfo[idxFont].szTypeface, lpEnumFunc, (LPSTR) (LONG) ENUMSIZES); 
  161.   FreeProcInstance(lpEnumFunc); 
  162.   ReleaseDC(hWnd, hDC); 
  163. } 
  164.  
  165.  
  166. int FAR PASCAL EnumFunc(LPLOGFONT lpLogFont, LPTEXTMETRIC lpTextMetric, 
  167.                 short FontType, LPSTR lpData) 
  168. { 
  169.   switch ((int) lpData) 
  170.   { 
  171.     case ENUMFACES : 
  172.       if (idxTypeface >= MAXFONT) 
  173.         return 0; 
  174.       lstrcpy(FontInfo[idxTypeface].szTypeface, lpLogFont->lfFaceName); 
  175.       FontInfo[idxTypeface].lfPitchAndFamily = lpLogFont->lfPitchAndFamily; 
  176.       FontInfo[idxTypeface].lfCharSet = lpLogFont->lfCharSet; 
  177.       return ++idxTypeface; 
  178.  
  179.     case ENUMSIZES : 
  180.       BitMaskSet(abFontSizeBitmask, lpLogFont->lfHeight, TRUE); 
  181.       return TRUE; 
  182.   } 
  183. } 
  184.  
  185.  
  186. VOID PASCAL ShowSampleFont(HWND hDlg, BOOL bPermanent)
  187. {
  188.   HFONT hFont, hOldFont;
  189.   HWND hWnd;
  190.   HDC  hDC;
  191.   RECT r;
  192.   int  iSel, iSize;
  193.   char szBuf[80];
  194.  
  195.  
  196.   iSel = (int) SendDlgItemMessage(hDlg,ID_SIZELIST,LB_GETCURSEL,0,0L);
  197.   SendDlgItemMessage(hDlg, ID_SIZELIST, LB_GETTEXT, iSel,
  198.                            (LONG)(LPSTR) szBuf);
  199.   iSize = atoi(szBuf);
  200.  
  201.   iSel = (int) SendDlgItemMessage(hDlg,ID_FACELIST,LB_GETCURSEL,0,0L);
  202.   SendDlgItemMessage(hDlg, ID_FACELIST, LB_GETTEXT, iSel,
  203.                      (LONG)(LPSTR) szBuf);
  204.  
  205.  
  206.   hWnd = GetDlgItem(hDlg, ID_TESTFONT);
  207.   hDC = GetDC(hWnd);
  208.   GetClientRect(hWnd, (LPRECT) &r);
  209.   FillRect(hDC, (LPRECT) &r, (HBRUSH) GetStockObject(WHITE_BRUSH));
  210.  
  211.   hFont = CreateFont(iSize, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE,
  212.                      FontInfo[iSel].lfCharSet,
  213.                      OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
  214.                      DEFAULT_QUALITY, FontInfo[iSel].lfPitchAndFamily,
  215.                      szBuf);
  216.   if (hFont)
  217.   {
  218.     hOldFont = SelectObject(hDC, hFont);
  219.     TextOut(hDC, 0, 0, "ABCabc", 6);
  220.     SelectObject(hDC, hOldFont);
  221.     if (bPermanent)
  222.     {
  223.       LPSTOCKINFO lpStockInfo;
  224.       if ((lpStockInfo = (LPSTOCKINFO) GlobalLock(hCurrStockInfo)) != NULL)
  225.       {
  226.         if (lpStockInfo->graphAttrs.hFont != 0)
  227.           DeleteObject(lpStockInfo->graphAttrs.hFont);
  228.         lpStockInfo->graphAttrs.hFont = hFont;
  229.         InvalidateRect(lpStockInfo->hWnd, (LPRECT) NULL, FALSE);
  230.         GlobalUnlock(hCurrStockInfo);
  231.       }
  232.     }
  233.     else
  234.       DeleteObject(hFont);
  235.   }
  236.  
  237.   ReleaseDC(hWnd, hDC);
  238. }
  239.  
  240.  
  241. /*****************************************************************************/
  242. /*                                                                           */
  243. /*                  ROUTINES FOR MANIPULATING BITMASKS                     */
  244. /*                                                                           */
  245. /*****************************************************************************/
  246.  
  247. BitMaskSet(map, c, val)
  248.   BYTE *map;
  249.   WORD c, val;
  250. {
  251.   /* 'c' takes on the values 1..n; since the bitmap numbers
  252.      the bits from 0..n-1, we need to subtract 1 from 'c' before we start.
  253.   */
  254.   if (c >= * (WORD *) map)      /* test if there are c bits in the map */
  255.     return 0;
  256.   map += sizeof(WORD);        /* get past the size indicator       */
  257.   if (val)
  258.     map[c >> 3] |=   1 << (c & 0x07);      /* turn it on  */
  259.   else
  260.     map[c >> 3] &= ~(1 << (c & 0x07));    /* turn it off */
  261.   return 1;
  262. }
  263.  
  264. BitMaskTest(map, c)
  265.   BYTE *map;
  266.   WORD c;
  267. {
  268.   /* 'c' takes on the values 1..n; since the bitmap numbers
  269.      the bits from 0..n-1, we need to subtract 1 from 'c' before we start.
  270.   */
  271.   if (c >= * (WORD *) map)         /* make sure we're inbounds */
  272.     return 0;
  273.   map += sizeof(WORD);               /* get past size indicator  */
  274.   return( map[c >> 3] & (1 << (c & 0x07)) );   /* extract the desired bit  */
  275. }
  276.